home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 7.st / VCR_ORG.ARC / VCR_VAR.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-11-11  |  4.0 KB  |  94 lines
  1.     { -- Tape / Movie Variables -- }
  2.      Name_Offset    : integer;
  3.      Tape_Offset    : integer;
  4.      Name_Select    : integer;
  5.      Tape_Select    : integer;
  6.      Dsply_Name     : integer;
  7.      Dsply_Tape     : integer;
  8.      Letter         : integer;
  9.      Slide_Size     : integer;
  10.      Slide_Pos      : integer;
  11.      Dummy          : integer;
  12.      DefDrive       : string[1];
  13.      FilePath       : Path_Name;
  14.  
  15.     { -- Window Variables -- }
  16.      Wind_Name      : array[1..5] of Window_Title;  { Window Names   }
  17.      Wind_Handle    : array[1..5] of integer;       { Window Handles }
  18.      Wind_Coor      : array[1..5, 1..4] of integer; { Window Coordinates    }
  19.                                                      {  1 : X of Top Left    }
  20.                                                      {  2 : Y of Top Left    }
  21.                                                      {  3 : Width of Window  }
  22.                                                      {  4 : Height of Window }
  23.      N_Window       : integer;                       { Number of Open Wind }
  24.  
  25.      DO_Menu        : Menu_Ptr;                      { Main Menu Handle }
  26.  
  27.      ExitPrompt     : Boolean;           { Continue Event_Loop Until True }
  28.  
  29.      Module         : integer;           { Identifies current Window }
  30.      Prev_Module    : integer;           { Identifies Previous open Window }
  31.  
  32.      i              : integer;          { Counter used in Main Program Module }
  33.      x0, y0,
  34.      w0, h0         : integer;          { Window Coordinants }
  35.  
  36.      Check,
  37.      PathSlash,
  38.      Slash,
  39.      Colon,
  40.      Sp,
  41.      Comma,
  42.      UnderLine      : char;
  43.  
  44.      Len,
  45.      Field,
  46.      X_Cursor,
  47.      Y_Cursor       : integer;          { X and Y Position of Next Keyboard   }
  48.                                         {  Input -- Updated in Keyboard_Input }
  49.                                         {  and DesignKey_Input                }
  50.  
  51.      Resolution     : integer;          { System Resolution -- Program runs }
  52.                                         {   in Medium and High only         }
  53.      SaveByte       : integer;          { Used by Keyboard Input to determine }
  54.                                         {   LoByte value from integer input   }
  55.      Flag           : Boolean;          { General Purpose Boolean }
  56.  
  57.     { -- Data Files -- }
  58.      Printer        : file of text;
  59.      NameFv         : file of Name;
  60.      InitialFv      : file of integer;
  61.      CheckFv        : file of boolean;
  62.      DefaultFv      : file of string;
  63.      DeleteFv       : file of boolean;
  64.  
  65.     { -- Internal Data Variables -- }
  66.      Gem_Result     : Gem_Window;
  67.      MenuItem       : Gem_Menu;                     { Gem parameters }
  68.  
  69.     { -- Input_String is the variable that stores all keyboard input into the }
  70.     {     correct position for latter storage, editting or deletion        -- }
  71.      Input_String   : array[1..60] of string;
  72.  
  73.     { -- XY_VCR is an array that gives the initial X value, Y value and the   }
  74.     {     maximum size of each Input_String variable                       -- }
  75.      XY_VCR       : array[1..3, 1..60] of integer;
  76.  
  77.  
  78.      VCR_Retrieve : boolean;                       { 0  = 'A'   }
  79.      VCR_Point    : array[1..2,0..26] of integer;  { 25 = 'Z'   }
  80.      VCR_Current  : integer;                       { 26 = other }
  81.      Tape_Current : integer;
  82.      VCR_Order    : array[1..2,0..Max_Movies] of integer;
  83.      Movie_Delete : array[0..Max_Movies] of boolean;
  84.      Tape_Delete  : array[0..Max_Movies] of boolean;
  85.      VCR_Inverse  : array[0..27] of boolean;
  86.      VCR_Name     : array[0..Max_Movies] of Name;
  87.      VCR_Next     : array[1..2,0..Max_Movies] of integer;
  88.      VCR_TapeNo   : array[0..Max_Movies] of integer;
  89.      VCR_Count    : array[0..Max_Movies] of integer;
  90.      VCR_Tape     : array[0..6,0..Max_Movies] of integer;
  91.      Output_Name  : array[0..Max_Movies] of integer;
  92.      Output_Tape  : array[0..Max_Movies] of integer;
  93.      VCR_Check    : array[1..2,0..Max_Movies] of boolean;
  94.